home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8608a.d64 / listing 1 (c64) (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  273b  |  13 lines
  1. 5 REM ------- TRANS 0(64HIRES) -
  2. 10 DATA 0,0,15,0,15,9,7,5,13,0,9
  3. 20 DIM X(6),Y(6)
  4. 30 FOR I=1 TO 5 : READ X(I),Y(I) : NEXT
  5. 40 X(6)=X(1) : Y(6)=Y(1)
  6. 50 POKE 53280,0 : SYS37498 : HFL,6,12
  7. 60 REM START
  8. 70 FOR I=1 TO 5
  9. 80 LIN,X(I),Y(I),X(I+1),Y(I+1)
  10. 90 NEXT
  11. 100 GET A$ : IF A$="" THEN 100
  12. 110 HOF
  13.